home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / HyperCard / XCMD Docs / CompileIt! Source Code / NumToText(num) < prev    next >
Encoding:
Text File  |  1995-08-30  |  395 b   |  13 lines  |  [TEXT/ttxt]
  1. function NumToText num
  2.   put num+0 into x
  3.   put @x into y
  4.   if charToNum(y@.charType)=0 then put " " into y@.charType
  5.   add one to y
  6.   if charToNum(y@.charType)=0 then put " " into y@.charType
  7.   add one to y
  8.   if charToNum(y@.charType)=0 then put " " into y@.charType
  9.   add one to y
  10.   if charToNum(y@.charType)=0 then put " " into y@.charType
  11.   subtract 3 from y
  12.   return y@.OSType
  13. end NumToText